/ Celestin Apprentice 5 / Apprentice-Release5.iso / Environments / Oberon⁄F™ 1.2 / Preinstalled version / System / Docu / Strings

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 07 53 74 72 69 6e 67 | 73 00 00 00 00 00 00 00 |..String|s.......|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 6f 4f 44 43 6f 62 6e | 46 01 00 00 00 00 00 00 |.oODCobn|F.......|
|00000050| 00 00 00 00 00 2d ca 00 | 00 01 3e ae 06 bf 7e ae |.....-..|..>...~.|
|00000060| 06 bf 8d 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 22 1b 00 00 |........|...."...|
|00000080| 43 44 4f 6f 00 00 00 00 | 82 f1 44 6f 63 75 6d 65 |CDOo....|..Docume|
|00000090| 6e 74 73 2e 53 74 64 44 | 6f 63 75 6d 65 6e 74 44 |nts.StdD|ocumentD|
|000000a0| 65 73 63 00 f1 44 6f 63 | 75 6d 65 6e 74 73 2e 44 |esc..Doc|uments.D|
|000000b0| 6f 63 75 6d 65 6e 74 44 | 65 73 63 00 f1 43 6f 6e |ocumentD|esc..Con|
|000000c0| 74 61 69 6e 65 72 73 2e | 56 69 65 77 44 65 73 63 |tainers.|ViewDesc|
|000000d0| 00 f1 56 69 65 77 73 2e | 56 69 65 77 44 65 73 63 |..Views.|ViewDesc|
|000000e0| 00 f0 53 74 6f 72 65 73 | 2e 53 74 6f 72 65 44 65 |..Stores|.StoreDe|
|000000f0| 73 63 00 00 00 00 00 00 | 00 00 00 07 00 00 00 47 |sc......|.......G|
|00000100| 2d 00 00 00 00 00 83 f1 | 44 6f 63 75 6d 65 6e 74 |-.......|Document|
|00000110| 73 2e 4d 6f 64 65 6c 44 | 65 73 63 00 f1 43 6f 6e |s.ModelD|esc..Con|
|00000120| 74 61 69 6e 65 72 73 2e | 4d 6f 64 65 6c 44 65 73 |tainers.|ModelDes|
|00000130| 63 00 f1 4d 6f 64 65 6c | 73 2e 4d 6f 64 65 6c 44 |c..Model|s.ModelD|
|00000140| 65 73 63 00 f1 53 74 6f | 72 65 73 2e 45 6c 65 6d |esc..Sto|res.Elem|
|00000150| 44 65 73 63 00 f2 04 00 | 00 00 00 00 00 00 95 2c |Desc....|.......,|
|00000160| 00 00 09 00 00 00 8d 2c | 00 00 00 00 00 00 00 82 |.......,|........|
|00000170| f1 54 65 78 74 56 69 65 | 77 73 2e 53 74 64 56 69 |.TextVie|ws.StdVi|
|00000180| 65 77 44 65 73 63 00 f1 | 54 65 78 74 56 69 65 77 |ewDesc..|TextView|
|00000190| 73 2e 56 69 65 77 44 65 | 73 63 00 f2 02 00 00 00 |s.ViewDe|sc......|
|000001a0| 00 00 00 00 00 00 00 00 | 07 00 00 00 37 2c 00 00 |........|....7,..|
|000001b0| 00 00 00 83 f1 54 65 78 | 74 4d 6f 64 65 6c 73 2e |.....Tex|tModels.|
|000001c0| 53 74 64 4d 6f 64 65 6c | 44 65 73 63 00 f1 54 65 |StdModel|Desc..Te|
|000001d0| 78 74 4d 6f 64 65 6c 73 | 2e 4d 6f 64 65 6c 44 65 |xtModels|.ModelDe|
|000001e0| 73 63 00 f2 06 00 00 00 | 00 00 00 00 b6 2a 00 00 |sc......|.....*..|
|000001f0| 0f 00 00 00 ae 2a 00 00 | 00 00 00 00 00 00 1a 06 |.....*..|........|
|00000200| 00 00 00 82 f1 54 65 78 | 74 4d 6f 64 65 6c 73 2e |.....Tex|tModels.|
|00000210| 41 74 74 72 69 62 75 74 | 65 73 44 65 73 63 00 f2 |Attribut|esDesc..|
|00000220| 04 00 00 00 00 00 00 00 | 36 00 00 00 00 00 00 00 |........|6.......|
|00000230| 22 00 00 00 00 00 00 00 | 00 01 00 00 00 00 48 65 |".......|......He|
|00000240| 6c 76 65 74 69 63 61 00 | 18 f0 01 00 00 00 00 00 |lvetica.|........|
|00000250| bc 02 00 00 00 00 00 00 | 00 00 00 2a 75 15 54 c8 |........|...*u.T.|
|00000260| 06 00 82 f1 54 65 78 74 | 52 75 6c 65 72 73 2e 53 |....Text|Rulers.S|
|00000270| 74 64 52 75 6c 65 72 44 | 65 73 63 00 f1 54 65 78 |tdRulerD|esc..Tex|
|00000280| 74 52 75 6c 65 72 73 2e | 52 75 6c 65 72 44 65 73 |tRulers.|RulerDes|
|00000290| 63 00 f2 03 00 00 00 00 | 00 00 00 ac 00 00 00 07 |c.......|........|
|000002a0| 00 00 00 a3 00 00 00 00 | 00 00 83 f1 54 65 78 74 |........|....Text|
|000002b0| 52 75 6c 65 72 73 2e 53 | 74 64 53 74 79 6c 65 44 |Rulers.S|tdStyleD|
|000002c0| 65 73 63 00 f1 54 65 78 | 74 52 75 6c 65 72 73 2e |esc..Tex|tRulers.|
|000002d0| 53 74 79 6c 65 44 65 73 | 63 00 f2 07 00 00 00 00 |StyleDes|c.......|
|000002e0| 00 00 00 00 00 00 00 08 | 00 00 00 5a 00 00 00 00 |........|...Z....|
|000002f0| 00 00 00 82 f1 54 65 78 | 74 52 75 6c 65 72 73 2e |.....Tex|tRulers.|
|00000300| 41 74 74 72 69 62 75 74 | 65 73 44 65 73 63 00 f2 |Attribut|esDesc..|
|00000310| 04 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000320| 24 00 00 00 00 01 00 00 | 00 00 00 00 00 00 00 00 |$.......|........|
|00000330| 00 00 00 00 00 00 c8 0d | 02 00 c0 a8 00 00 88 b6 |........|........|
|00000340| 02 00 03 00 00 00 00 00 | 00 00 01 82 f2 0d 00 00 |........|........|
|00000350| 00 00 00 00 00 34 00 00 | 00 00 00 00 00 22 00 00 |.....4..|....."..|
|00000360| 00 00 00 00 00 00 01 00 | 00 00 00 48 65 6c 76 65 |........|...Helve|
|00000370| 74 69 63 61 00 c0 19 03 | 00 00 00 00 00 bc 02 00 |tica....|........|
|00000380| 00 00 00 07 00 00 00 00 | 01 00 00 00 02 82 f2 0d |........|........|
|00000390| 00 00 00 00 00 00 00 39 | 00 00 00 00 00 00 00 22 |.......9|......."|
|000003a0| 00 00 00 00 00 00 00 00 | 01 00 00 00 00 48 65 6c |........|.....Hel|
|000003b0| 76 65 74 69 63 61 00 18 | f0 01 00 00 00 00 00 90 |vetica..|........|
|000003c0| 01 00 00 00 00 97 05 00 | 00 00 08 00 00 00 02 1e |........|........|
|000003d0| 00 00 00 03 82 f2 0d 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003e0| 00 00 00 00 00 00 22 00 | 00 00 00 00 00 00 00 01 |......".|........|
|000003f0| 00 00 00 00 48 65 6c 76 | 65 74 69 63 61 00 18 f0 |....Helv|etica...|
|00000400| 01 00 01 00 00 00 90 01 | 00 00 00 00 04 00 00 00 |........|........|
|00000410| 02 04 00 00 00 03 0f 00 | 00 00 02 63 00 00 00 03 |........|...c....|
|00000420| 03 00 00 00 02 04 00 00 | 00 03 03 00 00 00 02 09 |........|........|
|00000430| 00 00 00 00 07 00 00 00 | 02 1e 00 00 00 03 04 00 |........|........|
|00000440| 00 00 02 04 00 00 00 03 | 0f 00 00 00 02 3d 00 00 |........|.....=..|
|00000450| 00 00 0b 00 00 00 02 1e | 00 00 00 03 04 00 00 00 |........|........|
|00000460| 02 04 00 00 00 03 0f 00 | 00 00 02 41 00 00 00 00 |........|...A....|
|00000470| 0a 00 00 00 02 a2 00 00 | 00 00 05 00 00 00 02 2a |........|.......*|
|00000480| 01 00 00 00 03 00 00 00 | 02 6e 00 00 00 03 01 00 |........|.n......|
|00000490| 00 00 02 76 00 00 00 00 | 05 00 00 00 02 1d 00 00 |...v....|........|
|000004a0| 00 00 05 00 00 00 02 d7 | 00 00 00 00 07 00 00 00 |........|........|
|000004b0| 02 42 00 00 00 03 02 00 | 00 00 02 33 00 00 00 03 |.B......|...3....|
|000004c0| 03 00 00 00 02 9e 00 00 | 00 03 02 00 00 00 02 05 |........|........|
|000004d0| 00 00 00 03 03 00 00 00 | 02 80 00 00 00 00 07 00 |........|........|
|000004e0| 00 00 02 42 00 00 00 03 | 02 00 00 00 02 34 00 00 |...B....|.....4..|
|000004f0| 00 03 03 00 00 00 02 9e | 00 00 00 03 02 00 00 00 |........|........|
|00000500| 02 05 00 00 00 03 03 00 | 00 00 02 80 00 00 00 00 |........|........|
|00000510| 06 00 00 00 02 41 00 00 | 00 03 02 00 00 00 02 04 |.....A..|........|
|00000520| 00 00 00 03 02 00 00 00 | 02 1b 00 00 00 03 03 00 |........|........|
|00000530| 00 00 02 05 00 00 00 03 | 03 00 00 00 02 42 01 00 |........|.....B..|
|00000540| 00 00 06 00 00 00 02 43 | 00 00 00 03 06 00 00 00 |.......C|........|
|00000550| 02 04 00 00 00 03 01 00 | 00 00 02 1a 00 00 00 03 |........|........|
|00000560| 11 00 00 00 02 12 00 00 | 00 03 14 00 00 00 02 0c |........|........|
|00000570| 00 00 00 00 07 00 00 00 | 02 59 00 00 00 03 1b 00 |........|.Y......|
|00000580| 00 00 02 06 00 00 00 03 | 01 00 00 00 02 13 00 00 |........|........|
|00000590| 00 03 03 00 00 00 02 1d | 00 00 00 03 03 00 00 00 |........|........|
|000005a0| 02 42 00 00 00 03 01 00 | 00 00 02 05 00 00 00 03 |.B......|........|
|000005b0| 03 00 00 00 02 b3 00 00 | 00 00 07 00 00 00 02 55 |........|.......U|
|000005c0| 00 00 00 03 1b 00 00 00 | 02 04 00 00 00 03 01 00 |........|........|
|000005d0| 00 00 02 14 00 00 00 03 | 03 00 00 00 02 5f 00 00 |........|....._..|
|000005e0| 00 03 01 00 00 00 02 58 | 01 00 00 03 07 00 00 00 |.......X|........|
|000005f0| 02 06 00 00 00 03 03 00 | 00 00 02 10 00 00 00 03 |........|........|
|00000600| 01 00 00 00 02 0d 00 00 | 00 03 03 00 00 00 02 05 |........|........|
|00000610| 00 00 00 03 0c 00 00 00 | 02 12 00 00 00 03 1b 00 |........|........|
|00000620| 00 00 02 11 00 00 00 03 | 01 00 00 00 02 0e 00 00 |........|........|
|00000630| 00 00 04 00 00 00 02 85 | 00 00 00 03 03 00 00 00 |........|........|
|00000640| 02 0b 00 00 00 03 01 00 | 00 00 02 10 00 00 00 03 |........|........|
|00000650| 05 00 00 00 02 51 00 00 | 00 03 01 00 00 00 02 10 |.....Q..|........|
|00000660| 00 00 00 03 03 00 00 00 | 02 1f 00 00 00 03 03 00 |........|........|
|00000670| 00 00 02 04 00 00 00 03 | 02 00 00 00 02 62 01 00 |........|.....b..|
|00000680| 00 00 0f 00 00 00 02 73 | 00 00 00 03 02 00 00 00 |.......s|........|
|00000690| 02 0d 00 00 00 03 01 00 | 00 00 02 05 00 00 00 03 |........|........|
|000006a0| 04 00 00 00 02 04 00 00 | 00 03 08 00 00 00 02 04 |........|........|
|000006b0| 00 00 00 03 0b 00 00 00 | 02 02 00 00 00 03 01 00 |........|........|
|000006c0| 00 00 02 62 00 00 00 03 | 08 00 00 00 02 62 00 00 |...b....|.....b..|
|000006d0| 00 03 06 00 00 00 02 05 | 00 00 00 03 06 00 00 00 |........|........|
|000006e0| 02 6e 00 00 00 03 0f 00 | 00 00 02 1f 00 00 00 03 |.n......|........|
|000006f0| 12 00 00 00 02 7b 00 00 | 00 03 08 00 00 00 02 1b |.....{..|........|
|00000700| 00 00 00 03 04 00 00 00 | 02 0a 00 00 00 03 08 00 |........|........|
|00000710| 00 00 02 72 00 00 00 00 | 0b 00 00 00 02 ac 00 00 |...r....|........|
|00000720| 00 00 10 00 00 00 02 67 | 00 00 00 03 02 00 00 00 |.......g|........|
|00000730| 02 0d 00 00 00 03 01 00 | 00 00 02 6c 00 00 00 03 |........|...l....|
|00000740| 04 00 00 00 02 02 00 00 | 00 03 09 00 00 00 02 59 |........|.......Y|
|00000750| 00 00 00 03 04 00 00 00 | 02 43 00 00 00 03 06 00 |........|.C......|
|00000760| 00 00 02 53 00 00 00 03 | 04 00 00 00 02 34 00 00 |...S....|.....4..|
|00000770| 00 03 04 00 00 00 02 19 | 00 00 00 03 04 00 00 00 |........|........|
|00000780| 02 35 00 00 00 03 01 00 | 00 00 02 02 00 00 00 03 |.5......|........|
|00000790| 04 00 00 00 02 1b 00 00 | 00 03 05 00 00 00 02 75 |........|.......u|
|000007a0| 00 00 00 00 0c 00 00 00 | 02 9e 00 00 00 00 10 00 |........|........|
|000007b0| 00 00 02 a5 00 00 00 00 | 0b 00 00 00 02 5e 00 00 |........|.....^..|
|000007c0| 00 03 01 00 00 00 02 0c | 00 00 00 03 01 00 00 00 |........|........|
|000007d0| 02 60 00 00 00 03 07 00 | 00 00 02 0f 00 00 00 03 |.`......|........|
|000007e0| 07 00 00 00 02 a5 01 00 | 00 00 0c 00 00 00 02 47 |........|.......G|
|000007f0| 00 00 00 03 01 00 00 00 | 02 32 00 00 00 03 01 00 |........|.2......|
|00000800| 00 00 02 1c 00 00 00 03 | 07 00 00 00 02 0f 00 00 |........|........|
|00000810| 00 03 07 00 00 00 02 97 | 00 00 00 ff 02 53 74 72 |........|.....Str|
|00000820| 69 6e 67 73 0d 0d 44 45 | 46 49 4e 49 54 49 4f 4e |ings..DE|FINITION|
|00000830| 20 53 74 72 69 6e 67 73 | 3b 0d 0d 09 43 4f 4e 53 | Strings|;...CONS|
|00000840| 54 0d 09 09 63 68 61 72 | 43 6f 64 65 20 3d 20 2d |T...char|Code = -|
|00000850| 31 36 3b 20 64 65 63 69 | 6d 61 6c 20 3d 20 31 30 |16; deci|mal = 10|
|00000860| 3b 20 68 65 78 61 64 65 | 63 69 6d 61 6c 20 3d 20 |; hexade|cimal = |
|00000870| 31 36 3b 0d 09 09 64 69 | 67 69 74 73 70 61 63 65 |16;...di|gitspace|
|00000880| 20 3d 20 38 46 58 3b 0d | 0d 09 50 52 4f 43 45 44 | = 8FX;.|..PROCED|
|00000890| 55 52 45 20 20 41 70 70 | 65 6e 64 20 28 56 41 52 |URE  App|end (VAR|
|000008a0| 20 73 3a 20 41 52 52 41 | 59 20 4f 46 20 43 48 41 | s: ARRA|Y OF CHA|
|000008b0| 52 3b 20 73 75 66 66 69 | 78 3a 20 41 52 52 41 59 |R; suffi|x: ARRAY|
|000008c0| 20 4f 46 20 43 48 41 52 | 29 3b 0d 09 50 52 4f 43 | OF CHAR|);..PROC|
|000008d0| 45 44 55 52 45 20 20 43 | 6f 6e 63 61 74 20 28 73 |EDURE  C|oncat (s|
|000008e0| 31 2c 20 73 32 3a 20 41 | 52 52 41 59 20 4f 46 20 |1, s2: A|RRAY OF |
|000008f0| 43 48 41 52 3b 20 56 41 | 52 20 72 65 73 3a 20 41 |CHAR; VA|R res: A|
|00000900| 52 52 41 59 20 4f 46 20 | 43 48 41 52 29 3b 0d 09 |RRAY OF |CHAR);..|
|00000910| 50 52 4f 43 45 44 55 52 | 45 20 20 45 78 74 72 61 |PROCEDUR|E  Extra|
|00000920| 63 74 20 28 56 41 52 20 | 73 3a 20 41 52 52 41 59 |ct (VAR |s: ARRAY|
|00000930| 20 4f 46 20 43 48 41 52 | 3b 20 70 6f 73 2c 20 6c | OF CHAR|; pos, l|
|00000940| 65 6e 3a 20 4c 4f 4e 47 | 49 4e 54 3b 20 56 41 52 |en: LONG|INT; VAR|
|00000950| 20 72 65 73 3a 20 41 52 | 52 41 59 20 4f 46 20 43 | res: AR|RAY OF C|
|00000960| 48 41 52 29 3b 0d 09 50 | 52 4f 43 45 44 55 52 45 |HAR);..P|ROCEDURE|
|00000970| 20 20 46 69 6e 64 20 28 | 56 41 52 20 73 3a 20 41 |  Find (|VAR s: A|
|00000980| 52 52 41 59 20 4f 46 20 | 43 48 41 52 3b 20 70 61 |RRAY OF |CHAR; pa|
|00000990| 74 3a 20 41 52 52 41 59 | 20 4f 46 20 43 48 41 52 |t: ARRAY| OF CHAR|
|000009a0| 3b 20 73 74 61 72 74 3a | 20 4c 4f 4e 47 49 4e 54 |; start:| LONGINT|
|000009b0| 3b 0d 09 09 09 09 09 09 | 09 09 09 56 41 52 20 70 |;.......|...VAR p|
|000009c0| 6f 73 3a 20 4c 4f 4e 47 | 49 4e 54 29 3b 0d 09 50 |os: LONG|INT);..P|
|000009d0| 52 4f 43 45 44 55 52 45 | 20 20 4c 65 6e 20 28 56 |ROCEDURE|  Len (V|
|000009e0| 41 52 20 73 3a 20 41 52 | 52 41 59 20 4f 46 20 43 |AR s: AR|RAY OF C|
|000009f0| 48 41 52 29 3a 20 4c 4f | 4e 47 49 4e 54 3b 0d 09 |HAR): LO|NGINT;..|
|00000a00| 50 52 4f 43 45 44 55 52 | 45 20 20 4c 6f 77 65 72 |PROCEDUR|E  Lower|
|00000a10| 20 28 63 68 3a 20 43 48 | 41 52 29 3a 20 43 48 41 | (ch: CH|AR): CHA|
|00000a20| 52 3b 0d 09 50 52 4f 43 | 45 44 55 52 45 20 20 52 |R;..PROC|EDURE  R|
|00000a30| 65 70 6c 61 63 65 20 28 | 56 41 52 20 73 3a 20 41 |eplace (|VAR s: A|
|00000a40| 52 52 41 59 20 4f 46 20 | 43 48 41 52 3b 20 70 6f |RRAY OF |CHAR; po|
|00000a50| 73 2c 20 6c 65 6e 3a 20 | 4c 4f 4e 47 49 4e 54 3b |s, len: |LONGINT;|
|00000a60| 20 72 65 70 3a 20 41 52 | 52 41 59 20 4f 46 20 43 | rep: AR|RAY OF C|
|00000a70| 48 41 52 29 3b 0d 09 50 | 52 4f 43 45 44 55 52 45 |HAR);..P|ROCEDURE|
|00000a80| 20 20 54 6f 4c 6f 77 65 | 72 20 28 56 41 52 20 69 |  ToLowe|r (VAR i|
|00000a90| 6e 3a 20 41 52 52 41 59 | 20 4f 46 20 43 48 41 52 |n: ARRAY| OF CHAR|
|00000aa0| 3b 20 56 41 52 20 6f 75 | 74 3a 20 41 52 52 41 59 |; VAR ou|t: ARRAY|
|00000ab0| 20 4f 46 20 43 48 41 52 | 29 3b 0d 09 50 52 4f 43 | OF CHAR|);..PROC|
|00000ac0| 45 44 55 52 45 20 20 54 | 6f 55 70 70 65 72 20 28 |EDURE  T|oUpper (|
|00000ad0| 56 41 52 20 69 6e 3a 20 | 41 52 52 41 59 20 4f 46 |VAR in: |ARRAY OF|
|00000ae0| 20 43 48 41 52 3b 20 56 | 41 52 20 6f 75 74 3a 20 | CHAR; V|AR out: |
|00000af0| 41 52 52 41 59 20 4f 46 | 20 43 48 41 52 29 3b 0d |ARRAY OF| CHAR);.|
|00000b00| 09 50 52 4f 43 45 44 55 | 52 45 20 20 55 70 70 65 |.PROCEDU|RE  Uppe|
|00000b10| 72 20 28 63 68 3a 20 43 | 48 41 52 29 3a 20 43 48 |r (ch: C|HAR): CH|
|00000b20| 41 52 3b 0d 09 50 52 4f | 43 45 44 55 52 45 20 20 |AR;..PRO|CEDURE  |
|00000b30| 56 61 6c 69 64 20 28 56 | 41 52 20 73 3a 20 41 52 |Valid (V|AR s: AR|
|00000b40| 52 41 59 20 4f 46 20 43 | 48 41 52 29 3a 20 42 4f |RAY OF C|HAR): BO|
|00000b50| 4f 4c 45 41 4e 3b 0d 0d | 09 50 52 4f 43 45 44 55 |OLEAN;..|.PROCEDU|
|00000b60| 52 45 20 20 49 6e 74 54 | 6f 53 74 72 69 6e 67 20 |RE  IntT|oString |
|00000b70| 28 78 3a 20 4c 4f 4e 47 | 49 4e 54 3b 20 56 41 52 |(x: LONG|INT; VAR|
|00000b80| 20 73 3a 20 41 52 52 41 | 59 20 4f 46 20 43 48 41 | s: ARRA|Y OF CHA|
|00000b90| 52 29 3b 0d 09 50 52 4f | 43 45 44 55 52 45 20 20 |R);..PRO|CEDURE  |
|00000ba0| 49 6e 74 54 6f 53 74 72 | 69 6e 67 46 6f 72 6d 20 |IntToStr|ingForm |
|00000bb0| 28 78 3a 20 4c 4f 4e 47 | 49 4e 54 3b 20 66 6f 72 |(x: LONG|INT; for|
|00000bc0| 6d 2c 20 6d 69 6e 57 69 | 64 74 68 3a 20 49 4e 54 |m, minWi|dth: INT|
|00000bd0| 45 47 45 52 3b 20 66 69 | 6c 6c 43 68 3a 20 43 48 |EGER; fi|llCh: CH|
|00000be0| 41 52 3b 0d 09 09 09 09 | 09 09 09 09 09 09 09 09 |AR;.....|........|
|00000bf0| 09 09 73 75 66 66 69 78 | 3a 20 42 4f 4f 4c 45 41 |..suffix|: BOOLEA|
|00000c00| 4e 3b 20 56 41 52 20 73 | 3a 20 41 52 52 41 59 20 |N; VAR s|: ARRAY |
|00000c10| 4f 46 20 43 48 41 52 29 | 3b 0d 09 50 52 4f 43 45 |OF CHAR)|;..PROCE|
|00000c20| 44 55 52 45 20 20 52 65 | 61 6c 54 6f 53 74 72 69 |DURE  Re|alToStri|
|00000c30| 6e 67 20 28 78 3a 20 52 | 45 41 4c 3b 20 56 41 52 |ng (x: R|EAL; VAR|
|00000c40| 20 73 3a 20 41 52 52 41 | 59 20 4f 46 20 43 48 41 | s: ARRA|Y OF CHA|
|00000c50| 52 29 3b 0d 09 50 52 4f | 43 45 44 55 52 45 20 20 |R);..PRO|CEDURE  |
|00000c60| 52 65 61 6c 54 6f 53 74 | 72 69 6e 67 46 6f 72 6d |RealToSt|ringForm|
|00000c70| 20 28 78 3a 20 4c 4f 4e | 47 52 45 41 4c 3b 20 70 | (x: LON|GREAL; p|
|00000c80| 72 65 63 69 73 69 6f 6e | 2c 20 6d 69 6e 57 2c 20 |recision|, minW, |
|00000c90| 65 78 70 57 3a 20 49 4e | 54 45 47 45 52 3b 20 66 |expW: IN|TEGER; f|
|00000ca0| 69 6c 6c 43 68 3a 20 43 | 48 41 52 3b 0d 09 09 09 |illCh: C|HAR;....|
|00000cb0| 09 09 09 09 09 09 09 09 | 09 09 09 09 56 41 52 20 |........|....VAR |
|00000cc0| 73 3a 20 41 52 52 41 59 | 20 4f 46 20 43 48 41 52 |s: ARRAY| OF CHAR|
|00000cd0| 29 3b 0d 09 50 52 4f 43 | 45 44 55 52 45 20 20 4c |);..PROC|EDURE  L|
|00000ce0| 6f 6e 67 52 65 61 6c 54 | 6f 53 74 72 69 6e 67 20 |ongRealT|oString |
|00000cf0| 28 78 3a 20 4c 4f 4e 47 | 52 45 41 4c 3b 20 56 41 |(x: LONG|REAL; VA|
|00000d00| 52 20 73 3a 20 41 52 52 | 41 59 20 4f 46 20 43 48 |R s: ARR|AY OF CH|
|00000d10| 41 52 29 3b 0d 09 50 52 | 4f 43 45 44 55 52 45 20 |AR);..PR|OCEDURE |
|00000d20| 20 53 74 72 69 6e 67 54 | 6f 49 6e 74 20 28 73 3a | StringT|oInt (s:|
|00000d30| 20 41 52 52 41 59 20 4f | 46 20 43 48 41 52 3b 20 | ARRAY O|F CHAR; |
|00000d40| 56 41 52 20 78 2c 20 72 | 65 73 3a 20 4c 4f 4e 47 |VAR x, r|es: LONG|
|00000d50| 49 4e 54 29 3b 0d 09 50 | 52 4f 43 45 44 55 52 45 |INT);..P|ROCEDURE|
|00000d60| 20 20 53 74 72 69 6e 67 | 54 6f 52 65 61 6c 20 28 |  String|ToReal (|
|00000d70| 73 3a 20 41 52 52 41 59 | 20 4f 46 20 43 48 41 52 |s: ARRAY| OF CHAR|
|00000d80| 3b 20 56 41 52 20 78 3a | 20 4c 4f 4e 47 52 45 41 |; VAR x:| LONGREA|
|00000d90| 4c 3b 20 56 41 52 20 72 | 65 73 3a 20 4c 4f 4e 47 |L; VAR r|es: LONG|
|00000da0| 49 4e 54 29 3b 0d 0d 45 | 4e 44 20 53 74 72 69 6e |INT);..E|ND Strin|
|00000db0| 67 73 2e 0d 0d 0d 43 4f | 4e 53 54 20 63 68 61 72 |gs....CO|NST char|
|00000dc0| 43 6f 64 65 0d 50 6f 73 | 73 69 62 6c 65 20 76 61 |Code.Pos|sible va|
|00000dd0| 6c 75 65 20 66 6f 72 20 | 70 61 72 61 6d 65 74 65 |lue for |paramete|
|00000de0| 72 20 66 6f 72 6d 20 6f | 66 20 49 6e 74 54 6f 53 |r form o|f IntToS|
|00000df0| 74 72 69 6e 67 46 6f 72 | 6d 2c 20 61 73 6b 69 6e |tringFor|m, askin|
|00000e00| 67 20 66 6f 72 20 66 6f | 72 6d 61 74 74 69 6e 67 |g for fo|rmatting|
|00000e10| 20 69 6e 74 65 67 65 72 | 73 20 66 6f 6c 6c 6f 77 | integer|s follow|
|00000e20| 69 6e 67 20 74 68 65 20 | 73 79 6e 74 61 78 20 6f |ing the |syntax o|
|00000e30| 66 20 4f 62 65 72 6f 6e | 20 6e 75 6d 65 72 69 63 |f Oberon| numeric|
|00000e40| 61 6c 20 63 68 61 72 61 | 63 74 65 72 20 6c 69 74 |al chara|cter lit|
|00000e50| 65 72 61 6c 73 2c 20 65 | 2e 67 2e 20 30 44 58 20 |erals, e|.g. 0DX |
|00000e60| 6f 72 20 33 37 58 2e 0d | 0d 43 4f 4e 53 54 20 64 |or 37X..|.CONST d|
|00000e70| 65 63 69 6d 61 6c 0d 50 | 6f 73 73 69 62 6c 65 20 |ecimal.P|ossible |
|00000e80| 76 61 6c 75 65 20 66 6f | 72 20 70 61 72 61 6d 65 |value fo|r parame|
|00000e90| 74 65 72 20 66 6f 72 6d | 20 6f 66 20 49 6e 74 54 |ter form| of IntT|
|00000ea0| 6f 53 74 72 69 6e 67 46 | 6f 72 6d 2c 20 61 73 6b |oStringF|orm, ask|
|00000eb0| 69 6e 67 20 66 6f 72 20 | 66 6f 72 6d 61 74 74 69 |ing for |formatti|
|00000ec0| 6e 67 20 69 6e 74 65 67 | 65 72 73 20 61 73 20 64 |ng integ|ers as d|
|00000ed0| 65 63 69 6d 61 6c 20 6c | 69 74 65 72 61 6c 73 2e |ecimal l|iterals.|
|00000ee0| 0d 0d 43 4f 4e 53 54 20 | 68 65 78 61 64 65 63 69 |..CONST |hexadeci|
|00000ef0| 6d 61 6c 0d 50 6f 73 73 | 69 62 6c 65 20 76 61 6c |mal.Poss|ible val|
|00000f00| 75 65 20 66 6f 72 20 70 | 61 72 61 6d 65 74 65 72 |ue for p|arameter|
|00000f10| 20 66 6f 72 6d 20 6f 66 | 20 49 6e 74 54 6f 53 74 | form of| IntToSt|
|00000f20| 72 69 6e 67 46 6f 72 6d | 2c 20 61 73 6b 69 6e 67 |ringForm|, asking|
|00000f30| 20 66 6f 72 20 66 6f 72 | 6d 61 74 74 69 6e 67 20 | for for|matting |
|00000f40| 69 6e 74 65 67 65 72 73 | 20 61 73 20 68 65 78 61 |integers| as hexa|
|00000f50| 64 65 63 69 6d 61 6c 20 | 6c 69 74 65 72 61 6c 73 |decimal |literals|
|00000f60| 2e 0d 0d 43 4f 4e 53 54 | 20 64 69 67 69 74 73 70 |...CONST| digitsp|
|00000f70| 61 63 65 0d 41 20 64 69 | 67 69 74 20 73 70 61 63 |ace.A di|git spac|
|00000f80| 65 20 68 61 73 20 74 68 | 65 20 77 69 64 74 68 20 |e has th|e width |
|00000f90| 6f 66 20 64 69 67 69 74 | 20 7a 65 72 6f 20 28 30 |of digit| zero (0|
|00000fa0| 29 20 77 68 69 63 68 20 | 69 73 20 65 71 75 69 76 |) which |is equiv|
|00000fb0| 61 6c 65 6e 74 20 74 6f | 20 74 68 65 20 77 69 64 |alent to| the wid|
|00000fc0| 74 68 20 6f 66 20 61 6c | 6c 20 64 69 67 69 74 73 |th of al|l digits|
|00000fd0| 20 69 6e 20 6d 6f 73 74 | 20 66 6f 6e 74 73 2c 20 | in most| fonts, |
|00000fe0| 74 68 75 73 20 63 61 6e | 20 62 65 20 75 73 65 64 |thus can| be used|
|00000ff0| 20 66 6f 72 20 6e 75 6d | 62 65 72 20 66 6f 72 6d | for num|ber form|
|00001000| 61 74 74 69 6e 67 2e 0d | 0d 0d 50 52 4f 43 45 44 |atting..|..PROCED|
|00001010| 55 52 45 20 20 56 61 6c | 69 64 20 28 56 41 52 20 |URE  Val|id (VAR |
|00001020| 73 3a 20 41 52 52 41 59 | 20 4f 46 20 43 48 41 52 |s: ARRAY| OF CHAR|
|00001030| 29 3a 20 42 4f 4f 4c 45 | 41 4e 3b 0d 52 65 74 75 |): BOOLE|AN;.Retu|
|00001040| 72 6e 73 20 54 52 55 45 | 20 69 66 20 61 6e 64 20 |rns TRUE| if and |
|00001050| 6f 6e 6c 79 20 69 66 20 | 74 68 65 20 61 72 72 61 |only if |the arra|
|00001060| 79 20 73 20 63 6f 6e 74 | 61 69 6e 73 20 61 74 20 |y s cont|ains at |
|00001070| 6c 65 61 73 74 20 6f 6e | 65 20 73 74 72 69 6e 67 |least on|e string|
|00001080| 20 74 65 72 6d 69 6e 61 | 74 6f 72 20 30 58 2e 0d | termina|tor 0X..|
|00001090| 0d 50 6f 73 74 0d 73 20 | 3d 20 73 27 0d 73 20 63 |.Post.s |= s'.s c|
|000010a0| 6f 6e 74 61 69 6e 73 20 | 61 20 76 61 6c 69 64 20 |ontains |a valid |
|000010b0| 73 74 72 69 6e 67 20 76 | 61 6c 75 65 20 3d 3e 0d |string v|alue =>.|
|000010c0| 09 45 58 49 53 54 20 69 | 2c 20 30 20 3c 3d 20 69 |.EXIST i|, 0 <= i|
|000010d0| 20 3c 20 4c 45 4e 28 73 | 29 3a 20 73 5b 69 5d 20 | < LEN(s|): s[i] |
|000010e0| 3d 20 30 58 0d 73 20 64 | 6f 65 73 20 6e 6f 74 20 |= 0X.s d|oes not |
|000010f0| 63 6f 6e 74 61 69 6e 20 | 61 20 76 61 6c 69 64 20 |contain |a valid |
|00001100| 73 74 72 69 6e 67 20 76 | 61 6c 75 65 20 3d 3e 0d |string v|alue =>.|
|00001110| 09 41 4c 4c 20 69 20 49 | 4e 20 52 41 4e 47 45 20 |.ALL i I|N RANGE |
|00001120| 30 20 2e 2e 20 4c 45 4e | 28 73 29 2d 31 3a 20 73 |0 .. LEN|(s)-1: s|
|00001130| 5b 69 5d 20 23 20 30 58 | 0d 0d 50 52 4f 43 45 44 |[i] # 0X|..PROCED|
|00001140| 55 52 45 20 4c 65 6e 20 | 28 56 41 52 20 73 3a 20 |URE Len |(VAR s: |
|00001150| 41 52 52 41 59 20 4f 46 | 20 43 48 41 52 29 3a 20 |ARRAY OF| CHAR): |
|00001160| 4c 4f 4e 47 49 4e 54 3b | 0d 52 65 74 75 72 6e 73 |LONGINT;|.Returns|
|00001170| 20 74 68 65 20 70 6f 73 | 69 74 69 6f 6e 20 6f 66 | the pos|ition of|
|00001180| 20 74 68 65 20 66 69 72 | 73 74 20 6f 63 63 75 72 | the fir|st occur|
|00001190| 72 65 6e 63 65 20 6f 66 | 20 74 68 65 20 73 74 72 |rence of| the str|
|000011a0| 69 6e 67 20 74 65 72 6d | 69 6e 61 74 6f 72 20 30 |ing term|inator 0|
|000011b0| 58 20 69 6e 20 73 2e 0d | 0d 50 72 65 0d 56 61 6c |X in s..|.Pre.Val|
|000011c0| 69 64 28 73 29 09 28 6e | 6f 74 20 63 68 65 63 6b |id(s).(n|ot check|
|000011d0| 65 64 29 0d 0d 50 6f 73 | 74 0d 73 20 3d 20 73 27 |ed)..Pos|t.s = s'|
|000011e0| 0d 30 20 3c 3d 20 4c 65 | 6e 28 73 29 20 3c 20 4c |.0 <= Le|n(s) < L|
|000011f0| 45 4e 28 73 29 0d 46 4f | 52 41 4c 4c 20 69 20 49 |EN(s).FO|RALL i I|
|00001200| 4e 20 52 41 4e 47 45 20 | 5b 30 20 2e 2e 20 4c 65 |N RANGE |[0 .. Le|
|00001210| 6e 28 73 29 29 3a 20 73 | 5b 69 5d 20 23 20 30 58 |n(s)): s|[i] # 0X|
|00001220| 0d 0d 50 52 4f 43 45 44 | 55 52 45 20 55 70 70 65 |..PROCED|URE Uppe|
|00001230| 72 20 28 63 68 3a 20 43 | 48 41 52 29 3a 20 43 48 |r (ch: C|HAR): CH|
|00001240| 41 52 3b 0d 50 52 4f 43 | 45 44 55 52 45 20 4c 6f |AR;.PROC|EDURE Lo|
|00001250| 77 65 72 20 28 63 68 3a | 20 43 48 41 52 29 3a 20 |wer (ch:| CHAR): |
|00001260| 43 48 41 52 3b 0d 43 6f | 6e 76 65 72 73 69 6f 6e |CHAR;.Co|nversion|
|00001270| 20 74 6f 20 75 70 70 65 | 72 63 61 73 65 20 61 6e | to uppe|rcase an|
|00001280| 64 20 6c 6f 77 65 72 63 | 61 73 65 20 63 68 61 72 |d lowerc|ase char|
|00001290| 61 63 74 65 72 73 2e 20 | 48 61 6e 64 6c 65 73 20 |acters. |Handles |
|000012a0| 74 68 65 20 65 6e 74 69 | 72 65 20 49 53 4f 20 4c |the enti|re ISO L|
|000012b0| 61 74 69 6e 2d 31 20 63 | 68 61 72 61 63 74 65 72 |atin-1 c|haracter|
|000012c0| 20 73 65 74 2e 20 43 68 | 61 72 61 63 74 65 72 20 | set. Ch|aracter |
|000012d0| 76 61 6c 75 65 73 20 74 | 68 61 74 20 68 61 76 65 |values t|hat have|
|000012e0| 20 6e 6f 20 75 70 70 65 | 72 63 61 73 65 20 6f 72 | no uppe|rcase or|
|000012f0| 20 6c 6f 77 65 72 63 61 | 73 65 20 61 65 71 75 69 | lowerca|se aequi|
|00001300| 76 61 6c 65 6e 74 20 61 | 72 65 20 72 65 74 75 72 |valent a|re retur|
|00001310| 6e 65 64 20 75 6e 63 68 | 61 6e 67 65 64 2e 0d 0d |ned unch|anged...|
|00001320| 50 52 4f 43 45 44 55 52 | 45 20 54 6f 4c 6f 77 65 |PROCEDUR|E ToLowe|
|00001330| 72 20 28 56 41 52 20 69 | 6e 3a 20 41 52 52 41 59 |r (VAR i|n: ARRAY|
|00001340| 20 4f 46 20 43 48 41 52 | 3b 20 56 41 52 20 6f 75 | OF CHAR|; VAR ou|
|00001350| 74 3a 20 41 52 52 41 59 | 20 4f 46 20 43 48 41 52 |t: ARRAY| OF CHAR|
|00001360| 29 3b 0d 43 6f 6e 76 65 | 72 74 73 20 73 74 72 69 |);.Conve|rts stri|
|00001370| 6e 67 20 69 6e 20 74 6f | 20 6c 6f 77 65 72 63 61 |ng in to| lowerca|
|00001380| 73 65 20 63 68 61 72 61 | 63 74 65 72 73 20 61 6e |se chara|cters an|
|00001390| 64 20 72 65 74 75 72 6e | 73 20 74 68 65 20 72 65 |d return|s the re|
|000013a0| 73 75 6c 74 20 69 6e 20 | 6f 75 74 2e 20 48 61 6e |sult in |out. Han|
|000013b0| 64 6c 65 73 20 74 68 65 | 20 65 6e 74 69 72 65 20 |dles the| entire |
|000013c0| 49 53 4f 20 4c 61 74 69 | 6e 2d 31 20 63 68 61 72 |ISO Lati|n-1 char|
|000013d0| 61 63 74 65 72 20 73 65 | 74 2e 20 43 68 61 72 61 |acter se|t. Chara|
|000013e0| 63 74 65 72 20 76 61 6c | 75 65 73 20 74 68 61 74 |cter val|ues that|
|000013f0| 20 68 61 76 65 20 6e 6f | 20 6c 6f 77 65 72 63 61 | have no| lowerca|
|00001400| 73 65 20 65 71 75 69 76 | 61 6c 65 6e 74 20 61 72 |se equiv|alent ar|
|00001410| 65 20 75 6e 63 68 61 6e | 67 65 64 2e 20 54 68 65 |e unchan|ged. The|
|00001420| 20 73 61 6d 65 20 61 63 | 74 75 61 6c 20 70 61 72 | same ac|tual par|
|00001430| 61 6d 65 74 65 72 20 6d | 61 79 20 62 65 20 70 61 |ameter m|ay be pa|
|00001440| 73 73 65 64 20 66 6f 72 | 20 69 6e 20 61 6e 64 20 |ssed for| in and |
|00001450| 6f 75 74 2e 0d 0d 50 72 | 65 0d 56 61 6c 69 64 28 |out...Pr|e.Valid(|
|00001460| 69 6e 29 09 69 6e 64 65 | 78 20 74 72 61 70 0d 0d |in).inde|x trap..|
|00001470| 50 6f 73 74 0d 56 61 6c | 69 64 28 6f 75 74 29 0d |Post.Val|id(out).|
|00001480| 46 4f 52 41 4c 4c 20 69 | 20 49 4e 20 52 41 4e 47 |FORALL i| IN RANG|
|00001490| 45 20 5b 30 20 2e 2e 20 | 4d 49 4e 28 4c 65 6e 28 |E [0 .. |MIN(Len(|
|000014a0| 69 6e 29 2c 20 4c 45 4e | 28 6f 75 74 29 2d 31 29 |in), LEN|(out)-1)|
|000014b0| 3a 20 6f 75 74 5b 69 5d | 20 3d 20 4c 6f 77 65 72 |: out[i]| = Lower|
|000014c0| 28 69 6e 5b 69 5d 29 0d | 0d 50 52 4f 43 45 44 55 |(in[i]).|.PROCEDU|
|000014d0| 52 45 20 54 6f 55 70 70 | 65 72 20 28 56 41 52 20 |RE ToUpp|er (VAR |
|000014e0| 69 6e 3a 20 41 52 52 41 | 59 20 4f 46 20 43 48 41 |in: ARRA|Y OF CHA|
|000014f0| 52 3b 20 56 41 52 20 6f | 75 74 3a 20 41 52 52 41 |R; VAR o|ut: ARRA|
|00001500| 59 20 4f 46 20 43 48 41 | 52 29 3b 0d 43 6f 6e 76 |Y OF CHA|R);.Conv|
|00001510| 65 72 74 73 20 73 74 72 | 69 6e 67 20 69 6e 20 20 |erts str|ing in  |
|00001520| 74 6f 20 75 70 70 65 72 | 63 61 73 65 20 63 68 61 |to upper|case cha|
|00001530| 72 61 63 74 65 72 73 20 | 61 6e 64 20 72 65 74 75 |racters |and retu|
|00001540| 72 6e 73 20 74 68 65 20 | 72 65 73 75 6c 74 20 69 |rns the |result i|
|00001550| 6e 20 6f 75 74 2e 20 48 | 61 6e 64 6c 65 73 20 74 |n out. H|andles t|
|00001560| 68 65 20 65 6e 74 69 72 | 65 20 49 53 4f 20 4c 61 |he entir|e ISO La|
|00001570| 74 69 6e 2d 31 20 63 68 | 61 72 61 63 74 65 72 20 |tin-1 ch|aracter |
|00001580| 73 65 74 2e 20 43 68 61 | 72 61 63 74 65 72 20 76 |set. Cha|racter v|
|00001590| 61 6c 75 65 73 20 74 68 | 61 74 20 68 61 76 65 20 |alues th|at have |
|000015a0| 6e 6f 20 75 70 70 65 72 | 63 61 73 65 20 65 71 75 |no upper|case equ|
|000015b0| 69 76 61 6c 65 6e 74 20 | 61 72 65 20 75 6e 63 68 |ivalent |are unch|
|000015c0| 61 6e 67 65 64 2e 20 54 | 68 65 20 73 61 6d 65 20 |anged. T|he same |
|000015d0| 61 63 74 75 61 6c 20 70 | 61 72 61 6d 65 74 65 72 |actual p|arameter|
|000015e0| 20 6d 61 79 20 62 65 20 | 70 61 73 73 65 64 20 66 | may be |passed f|
|000015f0| 6f 72 20 69 6e 20 61 6e | 64 20 6f 75 74 2e 0d 0d |or in an|d out...|
|00001600| 50 72 65 0d 56 61 6c 69 | 64 28 69 6e 29 09 69 6e |Pre.Vali|d(in).in|
|00001610| 64 65 78 20 74 72 61 70 | 0d 0d 50 6f 73 74 0d 56 |dex trap|..Post.V|
|00001620| 61 6c 69 64 28 6f 75 74 | 29 0d 46 4f 52 41 4c 4c |alid(out|).FORALL|
|00001630| 20 69 20 49 4e 20 52 41 | 4e 47 45 20 5b 30 20 2e | i IN RA|NGE [0 .|
|00001640| 2e 20 4d 49 4e 28 4c 65 | 6e 28 69 6e 29 2c 20 4c |. MIN(Le|n(in), L|
|00001650| 45 4e 28 6f 75 74 29 2d | 31 29 3a 20 6f 75 74 5b |EN(out)-|1): out[|
|00001660| 69 5d 20 3d 20 55 70 70 | 65 72 28 69 6e 5b 69 5d |i] = Upp|er(in[i]|
|00001670| 29 0d 0d 50 52 4f 43 45 | 44 55 52 45 20 43 6f 6e |)..PROCE|DURE Con|
|00001680| 63 61 74 20 28 73 31 2c | 20 73 32 3a 20 41 52 52 |cat (s1,| s2: ARR|
|00001690| 41 59 20 4f 46 20 43 48 | 41 52 3b 20 56 41 52 20 |AY OF CH|AR; VAR |
|000016a0| 72 65 73 3a 20 41 52 52 | 41 59 20 4f 46 20 43 48 |res: ARR|AY OF CH|
|000016b0| 41 52 29 3b 0d 41 70 70 | 65 6e 64 73 20 73 74 72 |AR);.App|ends str|
|000016c0| 69 6e 67 20 73 32 20 74 | 6f 20 73 31 20 61 6e 64 |ing s2 t|o s1 and|
|000016d0| 20 72 65 74 75 72 6e 73 | 20 74 68 65 20 72 65 73 | returns| the res|
|000016e0| 75 6c 74 20 69 6e 20 72 | 65 73 2e 20 49 66 20 72 |ult in r|es. If r|
|000016f0| 65 73 20 69 73 20 6e 6f | 74 20 6c 61 72 67 65 20 |es is no|t large |
|00001700| 65 6e 6f 75 67 68 20 74 | 6f 20 68 6f 6c 64 20 74 |enough t|o hold t|
|00001710| 68 65 20 72 65 73 75 6c | 74 2c 20 74 68 65 20 72 |he resul|t, the r|
|00001720| 65 73 75 6c 74 20 69 73 | 20 74 72 75 6e 63 61 74 |esult is| truncat|
|00001730| 65 64 2e 0d 0d 50 72 65 | 0d 56 61 6c 69 64 28 73 |ed...Pre|.Valid(s|
|00001740| 31 29 20 26 20 56 61 6c | 69 64 28 73 32 29 09 28 |1) & Val|id(s2).(|
|00001750| 6e 6f 74 20 63 68 65 63 | 6b 65 64 29 0d 0d 50 6f |not chec|ked)..Po|
|00001760| 73 74 0d 4c 65 6e 28 72 | 65 73 29 20 3d 20 4d 49 |st.Len(r|es) = MI|
|00001770| 4e 28 4c 65 6e 28 73 31 | 29 2b 4c 65 6e 28 73 32 |N(Len(s1|)+Len(s2|
|00001780| 29 2c 20 4c 45 4e 28 72 | 65 73 29 2d 31 29 0d 46 |), LEN(r|es)-1).F|
|00001790| 4f 52 41 4c 4c 20 69 20 | 49 4e 20 52 41 4e 47 45 |ORALL i |IN RANGE|
|000017a0| 20 5b 30 20 2e 2e 20 4d | 49 4e 28 4c 65 6e 28 73 | [0 .. M|IN(Len(s|
|000017b0| 31 29 2c 20 4c 45 4e 28 | 72 65 73 29 2d 31 29 3a |1), LEN(|res)-1):|
|000017c0| 20 72 65 73 5b 69 5d 20 | 3d 20 73 31 5b 69 5d 0d | res[i] |= s1[i].|
|000017d0| 46 4f 52 41 4c 4c 20 69 | 20 49 4e 20 52 41 4e 47 |FORALL i| IN RANG|
|000017e0| 45 20 5b 4c 65 6e 28 73 | 31 29 20 2e 2e 20 4d 49 |E [Len(s|1) .. MI|
|000017f0| 4e 28 4c 65 6e 28 73 31 | 29 20 2b 20 4c 65 6e 28 |N(Len(s1|) + Len(|
|00001800| 73 32 29 2c 20 4c 45 4e | 28 72 65 73 29 2d 31 29 |s2), LEN|(res)-1)|
|00001810| 3a 20 72 65 73 5b 69 5d | 20 3d 20 73 32 5b 69 2d |: res[i]| = s2[i-|
|00001820| 4c 65 6e 28 73 31 29 5d | 0d 0d 50 52 4f 43 45 44 |Len(s1)]|..PROCED|
|00001830| 55 52 45 20 41 70 70 65 | 6e 64 20 28 56 41 52 20 |URE Appe|nd (VAR |
|00001840| 73 3a 20 41 52 52 41 59 | 20 4f 46 20 43 48 41 52 |s: ARRAY| OF CHAR|
|00001850| 3b 20 73 75 66 66 69 78 | 3a 20 41 52 52 41 59 20 |; suffix|: ARRAY |
|00001860| 4f 46 20 43 48 41 52 29 | 3b 0d 41 70 70 65 6e 64 |OF CHAR)|;.Append|
|00001870| 73 20 74 68 65 20 73 74 | 72 69 6e 67 20 73 75 66 |s the st|ring suf|
|00001880| 66 69 78 20 74 6f 20 73 | 2e 20 45 78 63 65 70 74 |fix to s|. Except|
|00001890| 20 66 6f 72 20 70 65 72 | 66 6f 72 6d 61 6e 63 65 | for per|formance|
|000018a0| 2c 20 41 70 70 65 6e 64 | 28 73 2c 20 73 75 66 66 |, Append|(s, suff|
|000018b0| 69 78 29 20 69 73 20 65 | 71 75 69 76 61 6c 65 6e |ix) is e|quivalen|
|000018c0| 74 20 74 6f 20 43 6f 6e | 63 61 74 28 73 2c 20 73 |t to Con|cat(s, s|
|000018d0| 75 66 66 69 78 2c 20 73 | 29 0d 0d 50 52 4f 43 45 |uffix, s|)..PROCE|
|000018e0| 44 55 52 45 20 45 78 74 | 72 61 63 74 20 28 56 41 |DURE Ext|ract (VA|
|000018f0| 52 20 73 3a 20 41 52 52 | 41 59 20 4f 46 20 43 48 |R s: ARR|AY OF CH|
|00001900| 41 52 3b 20 70 6f 73 2c | 20 6c 65 6e 3a 20 4c 4f |AR; pos,| len: LO|
|00001910| 4e 47 49 4e 54 3b 20 56 | 41 52 20 72 65 73 3a 20 |NGINT; V|AR res: |
|00001920| 41 52 52 41 59 20 4f 46 | 20 43 48 41 52 29 3b 0d |ARRAY OF| CHAR);.|
|00001930| 45 78 74 72 61 63 74 73 | 20 74 68 65 20 73 74 72 |Extracts| the str|
|00001940| 65 74 63 68 20 5b 70 6f | 73 2c 20 4d 49 4e 28 70 |etch [po|s, MIN(p|
|00001950| 6f 73 2b 6c 65 6e 2c 20 | 4c 65 6e 28 73 29 29 29 |os+len, |Len(s)))|
|00001960| 20 66 72 6f 6d 20 73 20 | 61 6e 64 20 72 65 74 75 | from s |and retu|
|00001970| 72 6e 73 20 69 74 20 69 | 6e 20 72 65 73 2e 20 54 |rns it i|n res. T|
|00001980| 68 65 20 72 65 73 75 6c | 74 20 69 73 20 74 72 75 |he resul|t is tru|
|00001990| 6e 63 61 74 65 64 20 69 | 66 20 72 65 73 20 69 73 |ncated i|f res is|
|000019a0| 20 6e 6f 74 20 6c 61 72 | 67 65 20 65 6e 6f 75 67 | not lar|ge enoug|
|000019b0| 68 2e 20 54 68 65 20 73 | 61 6d 65 20 61 63 74 75 |h. The s|ame actu|
|000019c0| 61 6c 20 70 61 72 61 6d | 65 74 65 72 20 6d 61 79 |al param|eter may|
|000019d0| 20 62 65 20 70 61 73 73 | 65 64 20 66 6f 72 20 73 | be pass|ed for s|
|000019e0| 20 61 6e 64 20 72 65 73 | 2e 0d 0d 50 72 65 0d 6c | and res|...Pre.l|
|000019f0| 65 6e 20 3e 3d 20 30 09 | 32 30 0d 70 6f 73 20 3e |en >= 0.|20.pos >|
|00001a00| 3d 20 30 09 32 31 0d 56 | 61 6c 69 64 28 73 29 09 |= 0.21.V|alid(s).|
|00001a10| 28 6e 6f 74 20 63 68 65 | 63 6b 65 64 29 0d 0d 50 |(not che|cked)..P|
|00001a20| 6f 73 74 0d 4c 65 6e 28 | 72 65 73 29 20 3d 20 4d |ost.Len(|res) = M|
|00001a30| 41 58 28 4d 49 4e 28 6c | 65 6e 2c 20 4c 65 6e 28 |AX(MIN(l|en, Len(|
|00001a40| 73 27 29 2d 70 6f 73 2c | 20 4c 45 4e 28 72 65 73 |s')-pos,| LEN(res|
|00001a50| 29 2d 31 29 2c 20 30 29 | 0d 46 4f 52 41 4c 4c 20 |)-1), 0)|.FORALL |
|00001a60| 69 20 49 4e 20 52 41 4e | 47 45 20 5b 30 20 2e 2e |i IN RAN|GE [0 ..|
|00001a70| 20 4c 65 6e 28 72 65 73 | 29 29 3a 20 72 65 73 5b | Len(res|)): res[|
|00001a80| 69 5d 20 3a 3d 20 73 27 | 5b 70 6f 73 2b 69 5d 0d |i] := s'|[pos+i].|
|00001a90| 0d 50 52 4f 43 45 44 55 | 52 45 20 52 65 70 6c 61 |.PROCEDU|RE Repla|
|00001aa0| 63 65 20 28 56 41 52 20 | 73 3a 20 41 52 52 41 59 |ce (VAR |s: ARRAY|
|00001ab0| 20 4f 46 20 43 48 41 52 | 3b 20 70 6f 73 2c 20 6c | OF CHAR|; pos, l|
|00001ac0| 65 6e 3a 20 4c 4f 4e 47 | 49 4e 54 3b 20 72 65 70 |en: LONG|INT; rep|
|00001ad0| 3a 20 41 52 52 41 59 20 | 4f 46 20 43 48 41 52 29 |: ARRAY |OF CHAR)|
|00001ae0| 3b 0d 52 65 70 6c 61 63 | 65 73 20 74 68 65 20 73 |;.Replac|es the s|
|00001af0| 74 72 65 74 63 68 20 5b | 70 6f 73 2c 20 4d 49 4e |tretch [|pos, MIN|
|00001b00| 28 70 6f 73 2b 6c 65 6e | 2c 20 4c 65 6e 28 73 29 |(pos+len|, Len(s)|
|00001b10| 29 29 20 69 6e 20 73 20 | 77 69 74 68 20 74 68 65 |)) in s |with the|
|00001b20| 20 73 74 72 69 6e 67 20 | 69 6e 20 72 65 70 2e 20 | string |in rep. |
|00001b30| 54 68 65 20 63 68 61 72 | 61 63 74 65 72 73 20 61 |The char|acters a|
|00001b40| 66 74 65 72 20 74 68 65 | 20 72 65 70 6c 61 63 65 |fter the| replace|
|00001b50| 64 20 73 74 72 65 74 63 | 68 20 61 72 65 20 6d 6f |d stretc|h are mo|
|00001b60| 76 65 64 20 69 66 20 6e | 65 63 65 73 73 61 72 79 |ved if n|ecessary|
|00001b70| 2e 20 54 68 65 20 72 65 | 73 75 6c 74 20 69 73 20 |. The re|sult is |
|00001b80| 74 72 75 6e 63 61 74 65 | 64 20 69 66 20 73 20 69 |truncate|d if s i|
|00001b90| 73 20 6e 6f 74 20 6c 61 | 72 67 65 20 65 6e 6f 75 |s not la|rge enou|
|00001ba0| 67 68 2e 0d 0d 50 72 65 | 0d 6c 65 6e 20 3e 3d 20 |gh...Pre|.len >= |
|00001bb0| 30 09 32 30 0d 70 6f 73 | 20 3e 3d 20 30 09 32 31 |0.20.pos| >= 0.21|
|00001bc0| 0d 56 61 6c 69 64 28 73 | 29 20 26 20 56 61 6c 69 |.Valid(s|) & Vali|
|00001bd0| 64 28 72 65 70 29 09 28 | 6e 6f 74 20 63 68 65 63 |d(rep).(|not chec|
|00001be0| 6b 65 64 29 0d 0d 50 6f | 73 74 0d 56 61 6c 69 64 |ked)..Po|st.Valid|
|00001bf0| 28 72 65 73 29 0d 46 4f | 52 41 4c 4c 20 69 20 49 |(res).FO|RALL i I|
|00001c00| 4e 20 52 41 4e 47 45 20 | 5b 30 20 2e 2e 20 4d 49 |N RANGE |[0 .. MI|
|00001c10| 4e 28 70 6f 73 2c 20 4c | 65 6e 28 73 27 29 29 3a |N(pos, L|en(s')):|
|00001c20| 20 73 5b 69 5d 20 3a 3d | 20 73 27 5b 69 5d 0d 46 | s[i] :=| s'[i].F|
|00001c30| 4f 52 41 4c 4c 20 69 20 | 49 4e 20 52 41 4e 47 45 |ORALL i |IN RANGE|
|00001c40| 20 5b 70 6f 73 20 2e 2e | 20 4d 49 4e 28 70 6f 73 | [pos ..| MIN(pos|
|00001c50| 2b 4c 65 6e 28 72 65 70 | 29 2c 20 4c 45 4e 28 73 |+Len(rep|), LEN(s|
|00001c60| 29 2d 31 29 3a 20 73 5b | 69 5d 20 3d 20 72 65 70 |)-1): s[|i] = rep|
|00001c70| 5b 69 2d 70 6f 73 5d 0d | 46 4f 52 41 4c 4c 20 69 |[i-pos].|FORALL i|
|00001c80| 20 49 4e 20 52 41 4e 47 | 45 20 5b 70 6f 73 2b 4c | IN RANG|E [pos+L|
|00001c90| 65 6e 28 72 65 70 29 20 | 2e 2e 20 4d 49 4e 28 4c |en(rep) |.. MIN(L|
|00001ca0| 65 6e 28 73 27 29 2d 6c | 65 6e 2b 4c 65 6e 28 72 |en(s')-l|en+Len(r|
|00001cb0| 65 70 29 2c 20 4c 45 4e | 28 73 29 20 2d 31 29 3a |ep), LEN|(s) -1):|
|00001cc0| 20 73 5b 69 5d 20 3a 3d | 20 73 27 5b 69 2b 6c 65 | s[i] :=| s'[i+le|
|00001cd0| 6e 2d 4c 65 6e 28 72 65 | 70 29 5d 0d 0d 48 69 6e |n-Len(re|p)]..Hin|
|00001ce0| 74 3a 20 69 66 20 6c 65 | 6e 20 3d 20 30 20 74 68 |t: if le|n = 0 th|
|00001cf0| 65 6e 20 72 65 70 20 69 | 73 20 69 6e 73 65 72 74 |en rep i|s insert|
|00001d00| 65 64 20 69 6e 20 73 20 | 61 74 20 70 6f 73 69 74 |ed in s |at posit|
|00001d10| 69 6f 6e 20 70 6f 73 2e | 20 49 66 20 4c 65 6e 28 |ion pos.| If Len(|
|00001d20| 72 65 70 29 20 3d 20 30 | 20 74 68 65 6e 20 74 68 |rep) = 0| then th|
|00001d30| 65 20 73 74 72 65 74 63 | 68 20 5b 70 6f 73 2c 20 |e stretc|h [pos, |
|00001d40| 4d 49 4e 28 70 6f 73 2b | 6c 65 6e 2c 20 4c 65 6e |MIN(pos+|len, Len|
|00001d50| 28 73 29 29 29 20 69 73 | 20 64 65 6c 65 74 65 64 |(s))) is| deleted|
|00001d60| 20 66 72 6f 6d 20 73 2e | 0d 0d 0d 50 52 4f 43 45 | from s.|...PROCE|
|00001d70| 44 55 52 45 20 46 69 6e | 64 20 28 56 41 52 20 73 |DURE Fin|d (VAR s|
|00001d80| 3a 20 41 52 52 41 59 20 | 4f 46 20 43 48 41 52 3b |: ARRAY |OF CHAR;|
|00001d90| 20 70 61 74 3a 20 41 52 | 52 41 59 20 4f 46 20 43 | pat: AR|RAY OF C|
|00001da0| 48 41 52 3b 20 73 74 61 | 72 74 3a 20 4c 4f 4e 47 |HAR; sta|rt: LONG|
|00001db0| 49 4e 54 3b 0d 09 09 09 | 09 09 09 09 09 09 56 41 |INT;....|......VA|
|00001dc0| 52 20 70 6f 73 3a 20 4c | 4f 4e 47 49 4e 54 29 3b |R pos: L|ONGINT);|
|00001dd0| 0d 53 65 61 72 63 68 65 | 73 20 74 68 65 20 66 69 |.Searche|s the fi|
|00001de0| 72 73 74 20 6f 63 63 75 | 72 72 65 6e 63 65 20 6f |rst occu|rrence o|
|00001df0| 66 20 74 68 65 20 70 61 | 74 74 65 72 6e 20 70 61 |f the pa|ttern pa|
|00001e00| 74 20 69 6e 20 73 74 72 | 69 6e 67 20 73 20 61 66 |t in str|ing s af|
|00001e10| 74 65 72 20 70 6f 73 69 | 74 69 6f 6e 20 73 74 61 |ter posi|tion sta|
|00001e20| 72 74 2e 20 49 66 20 74 | 68 65 20 70 61 74 74 65 |rt. If t|he patte|
|00001e30| 72 6e 20 69 73 20 66 6f | 75 6e 64 2c 20 74 68 65 |rn is fo|und, the|
|00001e40| 20 70 6f 73 69 74 69 6f | 6e 20 6f 66 20 74 68 65 | positio|n of the|
|00001e50| 20 66 69 72 73 74 20 63 | 68 61 72 61 63 74 65 72 | first c|haracter|
|00001e60| 20 6f 66 20 74 68 65 20 | 70 61 74 74 65 72 6e 20 | of the |pattern |
|00001e70| 69 6e 20 73 20 69 73 20 | 72 65 74 75 72 6e 65 64 |in s is |returned|
|00001e80| 20 69 6e 20 70 6f 73 2e | 20 49 66 20 74 68 65 20 | in pos.| If the |
|00001e90| 70 61 74 74 65 72 6e 20 | 69 73 20 6e 6f 74 20 66 |pattern |is not f|
|00001ea0| 6f 75 6e 64 2c 20 70 6f | 73 20 69 73 20 2d 31 2e |ound, po|s is -1.|
|00001eb0| 0d 0d 50 72 65 0d 73 74 | 61 72 74 20 3e 3d 20 30 |..Pre.st|art >= 0|
|00001ec0| 09 32 30 0d 56 61 6c 69 | 64 28 73 29 20 26 20 56 |.20.Vali|d(s) & V|
|00001ed0| 61 6c 69 64 28 70 61 74 | 29 09 28 6e 6f 74 20 63 |alid(pat|).(not c|
|00001ee0| 68 65 63 6b 65 64 29 0d | 0d 50 6f 73 74 0d 73 20 |hecked).|.Post.s |
|00001ef0| 3d 20 73 27 0d 0d 28 2a | 20 4d 61 74 63 68 28 70 |= s'..(*| Match(p|
|00001f00| 6f 73 29 20 3d 3d 20 46 | 4f 52 41 4c 4c 20 69 20 |os) == F|ORALL i |
|00001f10| 49 4e 20 52 41 4e 47 45 | 20 5b 30 20 2e 2e 20 4c |IN RANGE| [0 .. L|
|00001f20| 65 6e 28 70 61 74 29 29 | 3a 20 73 5b 69 2b 70 6f |en(pat))|: s[i+po|
|00001f30| 73 5d 20 3d 20 70 61 74 | 5b 69 5d 20 2a 29 0d 70 |s] = pat|[i] *).p|
|00001f40| 6f 73 20 3d 20 2d 31 20 | 3d 3e 0d 09 46 4f 52 41 |os = -1 |=>..FORA|
|00001f50| 4c 4c 20 69 20 49 4e 20 | 52 41 4e 47 45 20 5b 73 |LL i IN |RANGE [s|
|00001f60| 74 61 72 74 2c 20 4c 65 | 6e 28 73 29 2d 4c 65 6e |tart, Le|n(s)-Len|
|00001f70| 28 70 61 74 29 5d 3a 20 | 7e 4d 61 74 63 68 28 69 |(pat)]: |~Match(i|
|00001f80| 29 0d 09 09 4f 52 0d 09 | 73 74 61 72 74 20 3e 20 |)...OR..|start > |
|00001f90| 4c 65 6e 28 73 29 2d 4c | 65 6e 28 70 61 74 29 0d |Len(s)-L|en(pat).|
|00001fa0| 0d 73 74 61 72 74 20 3c | 3d 20 70 6f 73 20 3c 3d |.start <|= pos <=|
|00001fb0| 20 4c 65 6e 28 73 29 2d | 4c 65 6e 28 70 61 74 29 | Len(s)-|Len(pat)|
|00001fc0| 20 20 3d 3e 0d 09 4d 61 | 74 63 68 28 70 6f 73 29 |  =>..Ma|tch(pos)|
|00001fd0| 0d 09 09 41 4e 44 0d 09 | 46 4f 52 41 4c 4c 20 69 |...AND..|FORALL i|
|00001fe0| 20 49 4e 20 52 41 4e 47 | 45 20 5b 73 74 61 72 74 | IN RANG|E [start|
|00001ff0| 20 2e 2e 20 70 6f 73 29 | 3a 20 7e 4d 61 74 63 68 | .. pos)|: ~Match|
|00002000| 28 69 29 0d 0d 0d 50 52 | 4f 43 45 44 55 52 45 20 |(i)...PR|OCEDURE |
|00002010| 20 49 6e 74 54 6f 53 74 | 72 69 6e 67 46 6f 72 6d | IntToSt|ringForm|
|00002020| 20 28 78 3a 20 4c 4f 4e | 47 49 4e 54 3b 20 66 6f | (x: LON|GINT; fo|
|00002030| 72 6d 2c 20 6d 69 6e 57 | 69 64 74 68 3a 20 49 4e |rm, minW|idth: IN|
|00002040| 54 45 47 45 52 3b 20 66 | 69 6c 6c 43 68 3a 20 43 |TEGER; f|illCh: C|
|00002050| 48 41 52 3b 0d 09 09 09 | 09 09 09 09 73 75 66 66 |HAR;....|....suff|
|00002060| 69 78 3a 20 42 4f 4f 4c | 45 41 4e 3b 20 56 41 52 |ix: BOOL|EAN; VAR|
|00002070| 20 73 3a 20 41 52 52 41 | 59 20 4f 46 20 43 48 41 | s: ARRA|Y OF CHA|
|00002080| 52 29 3b 0d 43 6f 6e 76 | 65 72 74 20 69 6e 74 65 |R);.Conv|ert inte|
|00002090| 67 65 72 20 78 20 69 6e | 74 6f 20 73 74 72 69 6e |ger x in|to strin|
|000020a0| 67 20 73 2e 20 49 66 20 | 66 6f 72 6d 20 69 73 20 |g s. If |form is |
|000020b0| 63 68 61 72 43 6f 64 65 | 20 6f 72 20 68 65 78 61 |charCode| or hexa|
|000020c0| 64 65 63 69 6d 61 6c 2c | 20 78 20 69 73 20 63 6f |decimal,| x is co|
|000020d0| 6e 76 65 72 74 65 64 20 | 74 6f 20 61 20 62 61 73 |nverted |to a bas|
|000020e0| 65 20 31 36 20 72 65 70 | 72 65 73 65 6e 74 61 74 |e 16 rep|resentat|
|000020f0| 69 6f 6e 2e 20 54 68 65 | 20 74 6f 74 61 6c 20 72 |ion. The| total r|
|00002100| 65 70 72 65 73 65 6e 74 | 61 74 69 6f 6e 20 77 69 |epresent|ation wi|
|00002110| 6c 6c 20 61 74 20 6c 65 | 61 73 74 20 68 61 76 65 |ll at le|ast have|
|00002120| 20 61 20 77 69 64 74 68 | 20 6f 66 20 6d 69 6e 57 | a width| of minW|
|00002130| 69 64 74 68 20 63 68 61 | 72 61 63 74 65 72 73 2c |idth cha|racters,|
|00002140| 20 77 68 65 72 65 20 70 | 61 64 64 69 6e 67 20 28 | where p|adding (|
|00002150| 69 66 20 72 65 71 75 69 | 72 65 64 29 20 74 61 6b |if requi|red) tak|
|00002160| 65 73 20 70 6c 61 63 65 | 20 74 6f 20 74 68 65 20 |es place| to the |
|00002170| 6c 65 66 74 20 75 73 69 | 6e 67 20 63 68 61 72 61 |left usi|ng chara|
|00002180| 63 74 65 72 73 20 61 73 | 20 73 70 65 63 69 66 69 |cters as| specifi|
|00002190| 65 64 20 62 79 20 66 69 | 6c 6c 43 68 2e 0d 49 66 |ed by fi|llCh..If|
|000021a0| 20 73 75 66 66 69 78 20 | 69 73 20 54 52 55 45 2c | suffix |is TRUE,|
|000021b0| 20 61 20 73 75 66 66 69 | 78 20 63 68 61 72 61 63 | a suffi|x charac|
|000021c0| 74 65 72 20 69 73 20 61 | 70 70 65 6e 64 65 64 20 |ter is a|ppended |
|000021d0| 74 6f 20 74 68 65 20 6e | 75 6d 62 65 72 20 72 65 |to the n|umber re|
|000021e0| 70 72 65 73 65 6e 74 61 | 74 69 6f 6e 20 61 63 63 |presenta|tion acc|
|000021f0| 6f 72 64 69 6e 67 20 74 | 6f 20 74 68 65 20 6e 75 |ording t|o the nu|
|00002200| 6d 62 65 72 20 66 6f 72 | 6d 2e 20 54 68 65 20 76 |mber for|m. The v|
|00002210| 61 6c 75 65 20 66 6f 72 | 6d 20 3d 20 63 68 61 72 |alue for|m = char|
|00002220| 43 6f 64 65 20 72 65 6e | 64 65 72 73 20 74 68 65 |Code ren|ders the|
|00002230| 20 73 75 66 66 69 78 20 | 22 58 22 2c 20 77 68 69 | suffix |"X", whi|
|00002240| 6c 65 20 66 6f 72 6d 20 | 3d 20 68 65 78 61 64 65 |le form |= hexade|
|00002250| 63 69 6d 61 6c 20 72 65 | 6e 64 65 72 73 20 74 68 |cimal re|nders th|
|00002260| 65 20 73 75 66 66 69 78 | 20 22 48 22 2e 0d 4e 6f |e suffix| "H"..No|
|00002270| 6e 90 64 65 63 69 6d 61 | 6c 20 72 65 70 72 65 73 |n.decima|l repres|
|00002280| 65 6e 74 61 74 69 6f 6e | 73 20 6f 66 20 6e 65 67 |entation|s of neg|
|00002290| 61 74 69 76 65 20 69 6e | 74 65 67 65 72 73 20 61 |ative in|tegers a|
|000022a0| 72 65 20 66 6f 72 6d 65 | 64 20 75 73 69 6e 67 20 |re forme|d using |
|000022b0| 61 20 62 61 73 65 90 63 | 6f 6d 70 6c 65 6d 65 6e |a base.c|omplemen|
|000022c0| 74 20 66 6f 72 6d 20 6f | 66 20 77 69 64 74 68 20 |t form o|f width |
|000022d0| 6d 69 6e 57 69 64 74 68 | 2e 20 45 2e 67 2e 2c 20 |minWidth|. E.g., |
|000022e0| 78 20 3d 20 2d 33 20 72 | 65 6e 64 65 72 73 20 66 |x = -3 r|enders f|
|000022f0| 6f 72 20 62 61 73 65 20 | 3d 20 31 36 20 61 6e 64 |or base |= 16 and|
|00002300| 20 6d 69 6e 57 69 64 74 | 68 20 3d 20 34 20 61 73 | minWidt|h = 4 as|
|00002310| 20 22 46 46 46 44 22 2e | 0d 0d 50 72 65 0d 28 66 | "FFFD".|..Pre.(f|
|00002320| 6f 72 6d 20 3d 20 63 68 | 61 72 43 6f 64 65 29 20 |orm = ch|arCode) |
|00002330| 4f 52 20 28 66 6f 72 6d | 20 3d 20 64 65 63 69 6d |OR (form| = decim|
|00002340| 61 6c 29 20 4f 52 20 28 | 66 6f 72 6d 20 3d 20 68 |al) OR (|form = h|
|00002350| 65 78 61 64 65 63 69 6d | 61 6c 29 09 32 30 0d 6d |exadecim|al).20.m|
|00002360| 69 6e 57 69 64 74 68 20 | 3e 3d 20 30 09 32 32 0d |inWidth |>= 0.22.|
|00002370| 0d 50 52 4f 43 45 44 55 | 52 45 20 49 6e 74 54 6f |.PROCEDU|RE IntTo|
|00002380| 53 74 72 69 6e 67 20 28 | 78 3a 20 4c 4f 4e 47 49 |String (|x: LONGI|
|00002390| 4e 54 3b 20 56 41 52 20 | 73 3a 20 41 52 52 41 59 |NT; VAR |s: ARRAY|
|000023a0| 20 4f 46 20 43 48 41 52 | 29 0d 57 72 69 74 65 20 | OF CHAR|).Write |
|000023b0| 69 6e 74 65 67 65 72 20 | 69 6e 20 64 65 66 61 75 |integer |in defau|
|000023c0| 6c 74 20 66 6f 72 6d 61 | 74 2e 20 45 78 63 65 70 |lt forma|t. Excep|
|000023d0| 74 20 66 6f 72 20 70 65 | 72 66 6f 72 6d 61 6e 63 |t for pe|rformanc|
|000023e0| 65 2c 20 65 71 75 69 76 | 61 6c 65 6e 74 20 74 6f |e, equiv|alent to|
|000023f0| 3a 0d 09 49 6e 74 54 6f | 53 74 72 69 6e 67 46 6f |:..IntTo|StringFo|
|00002400| 72 6d 28 78 2c 20 64 65 | 63 69 6d 61 6c 2c 20 30 |rm(x, de|cimal, 0|
|00002410| 2c 20 64 69 67 69 74 73 | 70 61 63 65 2c 20 54 52 |, digits|pace, TR|
|00002420| 55 45 2c 20 73 29 0d 0d | 50 52 4f 43 45 44 55 52 |UE, s)..|PROCEDUR|
|00002430| 45 20 52 65 61 6c 54 6f | 53 74 72 69 6e 67 46 6f |E RealTo|StringFo|
|00002440| 72 6d 20 28 78 3a 20 4c | 4f 4e 47 52 45 41 4c 3b |rm (x: L|ONGREAL;|
|00002450| 20 70 72 65 63 69 73 69 | 6f 6e 2c 20 6d 69 6e 57 | precisi|on, minW|
|00002460| 2c 20 65 78 70 57 3a 20 | 49 4e 54 45 47 45 52 3b |, expW: |INTEGER;|
|00002470| 0d 09 09 09 09 09 09 09 | 66 69 6c 6c 43 68 3a 20 |........|fillCh: |
|00002480| 43 48 41 52 3b 20 56 41 | 52 20 73 3a 20 41 52 52 |CHAR; VA|R s: ARR|
|00002490| 41 59 20 4f 46 20 43 48 | 41 52 29 3b 0d 43 6f 6e |AY OF CH|AR);.Con|
|000024a0| 76 65 72 74 20 72 65 61 | 6c 20 78 20 69 6e 74 6f |vert rea|l x into|
|000024b0| 20 73 74 72 69 6e 67 20 | 73 2e 20 54 68 65 20 73 | string |s. The s|
|000024c0| 74 72 69 6e 67 20 63 72 | 65 61 74 65 64 20 74 6f |tring cr|eated to|
|000024d0| 20 72 65 70 72 65 73 65 | 6e 74 20 74 68 65 20 6e | represe|nt the n|
|000024e0| 75 6d 62 65 72 20 69 73 | 20 65 69 74 68 65 72 20 |umber is| either |
|000024f0| 69 6e 20 66 69 78 65 64 | 20 70 6f 69 6e 74 20 6f |in fixed| point o|
|00002500| 72 20 69 6e 20 73 63 69 | 65 6e 74 69 66 69 63 20 |r in sci|entific |
|00002510| 66 6f 72 6d 61 74 2c 20 | 61 63 63 6f 72 64 69 6e |format, |accordin|
|00002520| 67 20 74 6f 20 65 78 70 | 57 2e 20 70 72 65 63 69 |g to exp|W. preci|
|00002530| 73 69 6f 6e 20 64 65 6e | 6f 74 65 73 20 74 68 65 |sion den|otes the|
|00002540| 20 6e 75 6d 62 65 72 20 | 6f 66 20 76 61 6c 69 64 | number |of valid|
|00002550| 20 64 65 63 69 6d 61 6c | 20 70 6c 61 63 65 73 20 | decimal| places |
|00002560| 28 75 73 75 61 6c 6c 79 | 20 37 20 66 6f 72 20 72 |(usually| 7 for r|
|00002570| 65 61 6c 73 20 61 6e 64 | 20 31 36 20 66 6f 72 20 |eals and| 16 for |
|00002580| 6c 6f 6e 67 20 72 65 61 | 6c 73 29 2e 20 6d 69 6e |long rea|ls). min|
|00002590| 57 20 64 65 6e 6f 74 65 | 73 20 74 68 65 20 6d 69 |W denote|s the mi|
|000025a0| 6e 69 6d 61 6c 20 6c 65 | 6e 67 74 68 20 69 6e 20 |nimal le|ngth in |
|000025b0| 63 68 61 72 61 63 74 65 | 72 73 2e 20 49 66 20 6e |characte|rs. If n|
|000025c0| 65 63 65 73 73 61 72 79 | 2c 20 70 72 65 63 65 64 |ecessary|, preced|
|000025d0| 69 6e 67 20 66 69 6c 6c | 43 68 20 77 69 6c 6c 20 |ing fill|Ch will |
|000025e0| 62 65 20 69 6e 73 65 72 | 74 65 64 2e 20 4e 75 6d |be inser|ted. Num|
|000025f0| 62 65 72 73 20 61 72 65 | 20 61 6c 77 61 79 73 20 |bers are| always |
|00002600| 72 6f 75 6e 64 65 64 20 | 74 6f 20 74 68 65 20 6c |rounded |to the l|
|00002610| 61 73 74 20 76 61 6c 69 | 64 20 61 6e 64 20 76 69 |ast vali|d and vi|
|00002620| 73 69 62 6c 65 20 64 69 | 67 69 74 2e 0d 65 78 70 |sible di|git..exp|
|00002630| 57 20 3e 20 30 3a 20 65 | 78 70 6f 6e 65 6e 74 69 |W > 0: e|xponenti|
|00002640| 61 6c 20 66 6f 72 6d 61 | 74 20 28 73 63 69 65 6e |al forma|t (scien|
|00002650| 74 69 66 69 63 29 20 77 | 69 74 68 20 61 74 20 6c |tific) w|ith at l|
|00002660| 65 61 73 74 20 65 78 70 | 57 20 64 69 67 69 74 73 |east exp|W digits|
|00002670| 20 69 6e 20 74 68 65 20 | 65 78 70 6f 6e 65 6e 74 | in the |exponent|
|00002680| 2e 0d 65 78 70 57 20 3d | 20 30 3a 20 66 69 78 70 |..expW =| 0: fixp|
|00002690| 6f 69 6e 74 20 6f 72 20 | 66 6c 6f 61 74 69 6e 67 |oint or |floating|
|000026a0| 70 6f 69 6e 74 20 66 6f | 72 6d 61 74 2c 20 64 65 |point fo|rmat, de|
|000026b0| 70 65 6e 64 69 6e 67 20 | 6f 6e 20 78 2e 0d 65 78 |pending |on x..ex|
|000026c0| 70 57 20 3c 20 30 3a 20 | 66 69 78 70 6f 69 6e 74 |pW < 0: |fixpoint|
|000026d0| 20 66 6f 72 6d 61 74 20 | 77 69 74 68 20 2d 65 78 | format |with -ex|
|000026e0| 70 57 20 64 69 67 69 74 | 73 20 61 66 74 65 72 20 |pW digit|s after |
|000026f0| 74 68 65 20 64 65 63 69 | 6d 61 6c 20 70 6f 69 6e |the deci|mal poin|
|00002700| 74 2e 0d 0d 50 72 65 0d | 30 20 3c 20 70 72 65 63 |t...Pre.|0 < prec|
|00002710| 69 73 69 6f 6e 20 3c 3d | 20 31 36 09 32 30 0d 30 |ision <=| 16.20.0|
|00002720| 20 3c 3d 20 6d 69 6e 57 | 20 3c 20 4c 45 4e 28 73 | <= minW| < LEN(s|
|00002730| 29 09 32 31 0d 2d 4c 45 | 4e 28 73 29 20 3c 20 65 |).21.-LE|N(s) < e|
|00002740| 78 70 57 20 3c 3d 20 33 | 09 32 32 0d 0d 50 52 4f |xpW <= 3|.22..PRO|
|00002750| 43 45 44 55 52 45 20 52 | 65 61 6c 54 6f 53 74 72 |CEDURE R|ealToStr|
|00002760| 69 6e 67 20 28 78 3a 20 | 52 45 41 4c 3b 20 56 41 |ing (x: |REAL; VA|
|00002770| 52 20 73 3a 20 41 52 52 | 41 59 20 4f 46 20 43 48 |R s: ARR|AY OF CH|
|00002780| 41 52 29 0d 57 72 69 74 | 65 20 72 65 61 6c 20 69 |AR).Writ|e real i|
|00002790| 6e 20 64 65 66 61 75 6c | 74 20 66 6f 72 6d 61 74 |n defaul|t format|
|000027a0| 2e 20 45 78 63 65 70 74 | 20 66 6f 72 20 70 65 72 |. Except| for per|
|000027b0| 66 6f 72 6d 61 6e 63 65 | 2c 20 65 71 75 69 76 61 |formance|, equiva|
|000027c0| 6c 65 6e 74 20 74 6f 3a | 0d 09 52 65 61 6c 54 6f |lent to:|..RealTo|
|000027d0| 53 74 72 69 6e 67 46 6f | 72 6d 28 78 2c 20 37 2c |StringFo|rm(x, 7,|
|000027e0| 20 30 2c 20 30 2c 20 64 | 69 67 69 74 73 70 61 63 | 0, 0, d|igitspac|
|000027f0| 65 2c 20 73 29 0d 0d 50 | 52 4f 43 45 44 55 52 45 |e, s)..P|ROCEDURE|
|00002800| 20 4c 6f 6e 67 52 65 61 | 6c 54 6f 53 74 72 69 6e | LongRea|lToStrin|
|00002810| 67 20 28 78 3a 20 4c 4f | 4e 47 52 45 41 4c 3b 20 |g (x: LO|NGREAL; |
|00002820| 56 41 52 20 73 3a 20 41 | 52 52 41 59 20 4f 46 20 |VAR s: A|RRAY OF |
|00002830| 43 48 41 52 29 0d 57 72 | 69 74 65 20 6c 6f 6e 67 |CHAR).Wr|ite long|
|00002840| 20 72 65 61 6c 20 69 6e | 20 64 65 66 61 75 6c 74 | real in| default|
|00002850| 20 66 6f 72 6d 61 74 2e | 20 45 78 63 65 70 74 20 | format.| Except |
|00002860| 66 6f 72 20 70 65 72 66 | 6f 72 6d 61 6e 63 65 2c |for perf|ormance,|
|00002870| 20 65 71 75 69 76 61 6c | 65 6e 74 20 74 6f 3a 0d | equival|ent to:.|
|00002880| 09 52 65 61 6c 54 6f 53 | 74 72 69 6e 67 46 6f 72 |.RealToS|tringFor|
|00002890| 6d 28 78 2c 20 31 36 2c | 20 30 2c 20 30 2c 20 64 |m(x, 16,| 0, 0, d|
|000028a0| 69 67 69 74 73 70 61 63 | 65 29 0d 0d 50 52 4f 43 |igitspac|e)..PROC|
|000028b0| 45 44 55 52 45 20 53 74 | 72 69 6e 67 54 6f 49 6e |EDURE St|ringToIn|
|000028c0| 74 20 28 73 3a 20 41 52 | 52 41 59 20 4f 46 20 43 |t (s: AR|RAY OF C|
|000028d0| 48 41 52 3b 20 56 41 52 | 20 78 3a 20 4c 4f 4e 47 |HAR; VAR| x: LONG|
|000028e0| 49 4e 54 3b 20 56 41 52 | 20 72 65 73 3a 20 4c 4f |INT; VAR| res: LO|
|000028f0| 4e 47 49 4e 54 29 0d 43 | 6f 6e 76 65 72 74 73 20 |NGINT).C|onverts |
|00002900| 74 68 65 20 6e 75 6d 62 | 65 72 20 63 6f 6e 74 61 |the numb|er conta|
|00002910| 69 6e 65 64 20 69 6e 20 | 73 74 72 69 6e 67 20 73 |ined in |string s|
|00002920| 20 69 6e 74 6f 20 76 61 | 6c 75 65 20 78 2e 20 4c | into va|lue x. L|
|00002930| 65 67 61 6c 20 69 6e 74 | 65 67 65 72 20 6e 75 6d |egal int|eger num|
|00002940| 62 65 72 20 72 65 70 72 | 65 73 65 6e 74 61 74 69 |ber repr|esentati|
|00002950| 6f 6e 73 20 66 6f 6c 6c | 6f 77 20 74 68 65 20 73 |ons foll|ow the s|
|00002960| 79 6e 74 61 78 20 67 69 | 76 65 6e 20 62 65 6c 6f |yntax gi|ven belo|
|00002970| 77 2e 20 50 6f 73 73 69 | 62 6c 65 20 72 65 73 75 |w. Possi|ble resu|
|00002980| 6c 74 20 63 6f 64 65 73 | 20 61 72 65 20 72 65 73 |lt codes| are res|
|00002990| 20 3d 20 31 20 66 6f 72 | 20 6f 76 65 72 66 6c 6f | = 1 for| overflo|
|000029a0| 77 2c 20 72 65 73 20 3d | 20 32 20 66 6f 72 20 73 |w, res =| 2 for s|
|000029b0| 79 6e 74 61 78 20 65 72 | 72 6f 72 2e 0d 0d 24 20 |yntax er|ror...$ |
|000029c0| 6e 75 6d 62 65 72 20 3d | 20 28 20 5b 20 22 2b 22 |number =| ( [ "+"|
|000029d0| 20 7c 20 22 2d 22 20 5d | 20 64 65 63 20 7c 20 68 | | "-" ]| dec | h|
|000029e0| 65 78 20 29 20 30 58 20 | 2e 0d 24 20 64 65 63 20 |ex ) 0X |..$ dec |
|000029f0| 3d 20 64 69 67 69 74 20 | 7b 20 64 69 67 69 74 20 |= digit |{ digit |
|00002a00| 7d 20 2e 0d 24 20 68 65 | 78 20 3d 20 68 65 78 64 |} ..$ he|x = hexd|
|00002a10| 69 67 69 74 20 7b 20 68 | 65 78 64 69 67 69 74 20 |igit { h|exdigit |
|00002a20| 7d 20 28 22 48 22 20 7c | 20 22 58 22 29 20 2e 0d |} ("H" || "X") ..|
|00002a30| 24 20 68 65 78 64 69 67 | 69 74 20 3d 20 64 69 67 |$ hexdig|it = dig|
|00002a40| 69 74 20 7c 20 22 41 22 | 20 7c 20 22 42 22 20 7c |it | "A"| | "B" ||
|00002a50| 20 22 43 22 20 7c 20 22 | 44 22 20 7c 20 22 45 22 | "C" | "|D" | "E"|
|00002a60| 20 7c 20 22 46 22 20 2e | 0d 24 20 64 69 67 69 74 | | "F" .|.$ digit|
|00002a70| 20 3d 20 22 30 22 20 7c | 20 20 22 31 22 20 7c 20 | = "0" ||  "1" | |
|00002a80| 20 22 32 22 20 7c 20 20 | 22 33 22 20 7c 20 20 22 | "2" |  |"3" |  "|
|00002a90| 34 22 20 7c 20 20 22 35 | 22 20 7c 20 20 22 36 22 |4" |  "5|" |  "6"|
|00002aa0| 20 7c 20 20 22 37 22 20 | 7c 20 20 22 38 22 20 7c | |  "7" ||  "8" ||
|00002ab0| 20 20 22 39 22 20 2e 0d | 0d 50 6f 73 74 0d 73 20 |  "9" ..|.Post.s |
|00002ac0| 69 73 20 6c 65 67 61 6c | 20 69 6e 74 65 67 65 72 |is legal| integer|
|00002ad0| 20 6e 75 6d 62 65 72 20 | 72 65 70 72 65 73 65 6e | number |represen|
|00002ae0| 74 61 74 69 6f 6e 0d 09 | 78 20 69 73 20 63 6f 6e |tation..|x is con|
|00002af0| 76 65 72 74 65 64 20 72 | 65 61 6c 20 6e 75 6d 62 |verted r|eal numb|
|00002b00| 65 72 0d 09 72 65 73 20 | 3d 20 30 0d 73 20 69 73 |er..res |= 0.s is|
|00002b10| 20 6e 6f 74 20 61 20 6c | 65 67 61 6c 20 69 6e 74 | not a l|egal int|
|00002b20| 65 67 65 72 20 6e 75 6d | 62 65 72 20 72 65 70 72 |eger num|ber repr|
|00002b30| 65 73 65 6e 74 61 74 69 | 6f 6e 0d 09 72 65 73 20 |esentati|on..res |
|00002b40| 23 20 30 0d 0d 50 52 4f | 43 45 44 55 52 45 20 53 |# 0..PRO|CEDURE S|
|00002b50| 74 72 69 6e 67 54 6f 52 | 65 61 6c 20 28 73 3a 20 |tringToR|eal (s: |
|00002b60| 41 52 52 41 59 20 4f 46 | 20 43 48 41 52 3b 20 56 |ARRAY OF| CHAR; V|
|00002b70| 41 52 20 78 3a 20 4c 4f | 4e 47 52 45 41 4c 3b 20 |AR x: LO|NGREAL; |
|00002b80| 56 41 52 20 72 65 73 3a | 20 4c 4f 4e 47 49 4e 54 |VAR res:| LONGINT|
|00002b90| 29 0d 43 6f 6e 76 65 72 | 74 73 20 73 74 72 69 6e |).Conver|ts strin|
|00002ba0| 67 20 73 20 67 69 76 65 | 6e 20 69 6e 20 66 69 78 |g s give|n in fix|
|00002bb0| 65 64 20 6f 72 20 73 63 | 69 65 6e 74 69 66 69 63 |ed or sc|ientific|
|00002bc0| 20 6e 6f 74 61 74 69 6f | 6e 20 69 6e 74 6f 20 76 | notatio|n into v|
|00002bd0| 61 6c 75 65 20 78 2e 20 | 50 6f 73 73 69 62 6c 65 |alue x. |Possible|
|00002be0| 20 72 65 73 75 6c 74 20 | 63 6f 64 65 73 20 61 72 | result |codes ar|
|00002bf0| 65 20 72 65 73 20 3d 20 | 31 20 66 6f 72 20 6f 76 |e res = |1 for ov|
|00002c00| 65 72 66 6c 6f 77 2c 20 | 72 65 73 20 3d 20 32 20 |erflow, |res = 2 |
|00002c10| 66 6f 72 20 73 79 6e 74 | 61 78 20 65 72 72 6f 72 |for synt|ax error|
|00002c20| 2e 0d 0d 50 6f 73 74 0d | 73 20 69 73 20 6c 65 67 |...Post.|s is leg|
|00002c30| 61 6c 20 72 65 61 6c 20 | 6e 75 6d 62 65 72 20 72 |al real |number r|
|00002c40| 65 70 72 65 73 65 6e 74 | 61 74 69 6f 6e 0d 09 78 |epresent|ation..x|
|00002c50| 20 69 73 20 63 6f 6e 76 | 65 72 74 65 64 20 72 65 | is conv|erted re|
|00002c60| 61 6c 20 6e 75 6d 62 65 | 72 0d 09 72 65 73 20 3d |al numbe|r..res =|
|00002c70| 20 30 0d 73 20 69 73 20 | 6e 6f 74 20 6c 65 67 61 | 0.s is |not lega|
|00002c80| 6c 20 72 65 61 6c 20 6e | 75 6d 62 65 72 20 72 65 |l real n|umber re|
|00002c90| 70 72 65 73 65 6e 74 61 | 74 69 6f 6e 0d 09 72 65 |presenta|tion..re|
|00002ca0| 73 20 23 20 30 0d 82 f1 | 54 65 78 74 43 6f 6e 74 |s # 0...|TextCont|
|00002cb0| 72 6f 6c 6c 65 72 73 2e | 53 74 64 43 74 72 6c 44 |rollers.|StdCtrlD|
|00002cc0| 65 73 63 00 f1 54 65 78 | 74 43 6f 6e 74 72 6f 6c |esc..Tex|tControl|
|00002cd0| 6c 65 72 73 2e 43 6f 6e | 74 72 6f 6c 6c 65 72 44 |lers.Con|trollerD|
|00002ce0| 65 73 63 00 f1 43 6f 6e | 74 61 69 6e 65 72 73 2e |esc..Con|tainers.|
|00002cf0| 43 6f 6e 74 72 6f 6c 6c | 65 72 44 65 73 63 00 f1 |Controll|erDesc..|
|00002d00| 43 6f 6e 74 72 6f 6c 6c | 65 72 73 2e 43 6f 6e 74 |Controll|ers.Cont|
|00002d10| 72 6f 6c 6c 65 72 44 65 | 73 63 00 f2 04 00 00 00 |rollerDe|sc......|
|00002d20| 00 00 00 00 14 00 00 00 | 00 00 00 00 09 00 00 00 |........|........|
|00002d30| 00 00 00 00 00 00 00 00 | 00 00 00 01 82 f2 0e 00 |........|........|
|00002d40| 00 00 00 00 00 00 61 00 | 00 00 07 00 00 00 59 00 |......a.|......Y.|
|00002d50| 00 00 00 00 00 83 f2 10 | 00 00 00 00 00 00 00 00 |........|........|
|00002d60| 00 00 00 08 00 00 00 3f | 00 00 00 00 00 00 00 82 |.......?|........|
|00002d70| f2 12 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002d80| 00 24 00 00 00 00 01 00 | 00 00 00 00 00 00 00 00 |.$......|........|
|00002d90| 00 00 00 00 00 00 00 47 | 99 01 00 9f 6f 00 00 01 |.......G|....o...|
|00002da0| 00 00 00 01 00 00 00 00 | 00 00 00 82 f2 0d 00 00 |........|........|
|00002db0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 1e 00 00 |........|........|
|00002dc0| 00 00 00 00 00 00 01 00 | 00 00 00 41 72 69 61 6c |........|...Arial|
|00002dd0| 00 47 99 01 00 00 00 00 | 00 90 01 00 00 00 00 00 |.G......|........|
|00002de0| 00 00 00 00 00 00 00 e0 | 8c 01 00 e0 8c 01 00 20 |........|....... |
|00002df0| ef 5e 00 60 58 a6 00 82 | f1 44 6f 63 75 6d 65 6e |.^.`X...|.Documen|
|00002e00| 74 73 2e 43 6f 6e 74 72 | 6f 6c 6c 65 72 44 65 73 |ts.Contr|ollerDes|
|00002e10| 63 00 f2 15 00 00 00 00 | 00 00 00 00 00 00 00 00 |c.......|........|
|00002e20| 00 00 00 08 00 00 00 00 | 00 00 00 00 0c 00 00 00 |........|........|
|00002e30| 00 20 27 a3 00 98 4b 73 | 00 80 fc 0a 00 80 fc 0a |. '...Ks|........|
|00002e40| 00 a0 2a 98 00 18 4f 68 | 00 00 00 00 00 00 00 00 |..*...Oh|........|
|00002e50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002e60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002e70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002e80| 00 00 01 00 00 00 01 0c | 00 00 00 0c 00 00 00 32 |........|.......2|
|00002e90| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00002ea0| ff ff ff 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002eb0| 07 53 74 72 69 6e 67 73 | 02 00 00 00 50 61 72 74 |.Strings|....Part|
|00002ec0| 53 49 54 21 00 00 00 00 | 00 00 00 00 00 00 49 23 |SIT!....|......I#|
|00002ed0| 00 00 50 61 72 74 53 49 | 54 21 00 00 00 00 00 00 |..PartSI|T!......|
|00002ee0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ef0| 00 00 ae 04 81 ca 00 00 | 00 00 00 00 01 3e f5 f5 |........|.....>..|
|00002f00| f5 f5 ff 2b 2b ff 00 00 | 00 00 00 00 00 00 00 00 |...++...|........|
|00002f10| ff f5 f5 f5 f5 f5 f5 f5 | f5 f5 f5 f5 f5 f5 f5 f5 |........|........|
|00002f20| f5 f5 ff 2b 2b 2b ff 00 | 00 00 00 00 00 00 00 00 |...+++..|........|
|00002f30| ff f5 f5 f5 f5 f5 f5 f5 | f5 f5 f5 f5 f5 f5 f5 f5 |........|........|
|00002f40| f5 f5 ff 2b 2b 2b 2b ff | 00 00 00 00 00 00 00 00 |...++++.|........|
|00002f50| ff f5 f5 f5 f5 f5 f5 f5 | f5 f5 f5 f5 f5 f5 f5 f5 |........|........|
|00002f60| f5 f5 ff ff ff ff ff ff | ff 00 00 00 00 00 00 00 |........|........|
|00002f70| ff f5 f5 f5 f5 f5 f5 f5 | f5 f5 f5 f5 f5 f5 f5 f5 |........|........|
|00002f80| 00 00 00 08 00 32 00 05 | 01 db 02 06 00 00 01 00 |.....2..|........|
|00002f90| 00 00 01 0c 00 00 00 0c | 00 00 00 32 00 7f cb 18 |........|...2....|
|00002fa0| 0d 98 00 00 00 1c 00 32 | 00 00 57 4e 53 50 00 00 |.......2|..WNSP..|
|00002fb0| 00 0a 00 01 ff ff 00 00 | 00 00 00 9b 27 60 00 00 |........|....'`..|
|00002fc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002fd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002fe0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ff0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+